home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Magazin / Future-PD / Scripts / S4_Shopkeeper.script < prev    next >
Text File  |  1998-03-18  |  807b  |  47 lines
  1. IDLE|
  2. :CANCEL|
  3. [ "Be seeing you."|
  4. IDLE|
  5. :TOUCH|
  6. [ "What do you need?"|
  7. :CAN|
  8. MENURESET|
  9. MENUADD Buy "Buy Items"|
  10. MENUADD Cancel "Cancel"|
  11. MENUCHOICE @MENU|
  12. ONGOTO 0 @MENU BUY CANCEL|
  13. :BUY|
  14. MENURESET|
  15. MENUADD ChainGloves "Buy Chain Gloves for 150cr"|
  16. MENUADD Cap "Buy Cap for 20cr"|
  17. MENUADD Helmet "Buy Helmet for 90cr"|
  18. MENUADD Bandages "Buy Bandages for 10cr"|
  19. MENUADD PizzaSlice "Buy Pizza Slice for 30cr"|
  20. MENUADD Cancel "Cancel"|
  21. MENUCHOICE @MENU|
  22. ONGOTO 0 @MENU CG CAP HEL BAN PIZ CAN|
  23. IDLE|
  24. :CG|
  25. BUY ChainGloves @RES|
  26. IF @RES = -1 BUY|
  27. GOTO NO|
  28. :CAP|
  29. BUY Cap @RES|
  30. IF @RES BUY|
  31. GOTO NO|
  32. :HEL|
  33. BUY Helmet @RES|
  34. IF @RES BUY|
  35. GOTO NO|
  36. :BAN|
  37. BUY Bandages @RES|
  38. IF @RES BUY|
  39. GOTO NO|
  40. :PIZ|
  41. BUY PizzaSlice @RES|
  42. IF @RES BUY|
  43. :NO|
  44. [ "Sorry, you don't have enough"|
  45. [ "credits to piurchase that."|
  46. GOTO BUY|
  47.